home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 24 / Tiger_Disk_024_19xx_Tiger-Crew-Disk_de_Side_B.d64 / doodle slideshow (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  206 lines
  1. 0 rem "[185][185][185][185]doodle loader & dmp[185][185][185][185]"
  2. 1 :
  3. 4 :    rem..list 10000 for credits
  4. 5 :
  5. 9 iffl=1then310
  6. 10 poke2,1:poke53281,0:poke53280,11:print""
  7. 11 ifa=0andys=0thengosub1000
  8. 15 ifa=0then poke55,0:poke56,92:clr:dima$(20):au=0
  9. 20 restore
  10. 25 c=11:rem border color
  11. 30 ifa=0thena=1:gosub500
  12. 40 gosub700
  13. 198 ifpeek(197)=49thenau=0:rem keybrd             matrix value of '*'(auto off)
  14. 199 ifau=1thenfortt=1to50:nexttt:i=i+1:goto250:rem auto mode
  15. 200 poke198,0:wait198,1:getb$
  16. 201 ifb$="^"thenau=1:goto199:rem                    '^' switches auto mode on
  17. 202 ifb$="[134]"thenc=c-1:poke53280,c:ifc=0thenc=15:rem  f3 previous border color
  18. 203 ifb$="[135]"thenc=c+1:poke53280,c:ifc=15thenc=0:rem  f5 next border color
  19. 205 ifb$="[139]"thensys52224:goto200:rem                 f6 1525 m/l screen dump
  20. 206 ifb$="1"thenpoke2,1:rem                          1 for single-size dump
  21. 207 ifb$="2"thenpoke2,2:rem                          2 for double-size dump
  22. 210 ifb$="[140]"theni=i+1:goto250:rem                    f8 next screen w/o menu
  23. 215 ifb$="[196]"thengosub500:gosub700:rem                shift-d for new disk
  24. 220 ifb$="[133]"then270:rem                              f1 toggle to menu
  25. 230 ifb$<"a"orb$>"q"then200
  26. 240 i=asc(b$)-64
  27. 250 ifi>17theni=1
  28. 260 f$="dd"+a$(i)
  29. 265 iff$="dd--------------"then198
  30. 270 poke53265,59:poke53272,120
  31. 280 poke56576,peek(56576)and254
  32. 290 fl=0:ifb$<>"[133]"thenfl=1:load f$,8,1
  33. 310 ifau=1thengoto198
  34. 320 gett$:ift$=""then320
  35. 325 ift$<>"[133]"thenb$=t$:t$="":goto201
  36. 329 gosub330:goto360
  37. 330 poke53265,27:poke53272,21
  38. 340 poke56576,peek(56576)or1:return
  39. 360 goto200
  40. 500 gosub330:printfre(0);"[147] insert doodle disk and press any key."
  41. 501 poke198,0:wait198,1:geta$
  42. 502 print"    please wait. reading directory."
  43. 504 ford=1to17:a$(d)="--------------":next
  44. 505 open2,8,0,"$0:dd*":get#2,a$,a$:d=-1:goto527
  45. 510 get#2,a$:ifst<>0thenclose2:i=0:return
  46. 515 ifa$<>chr$(34)then510
  47. 517 a$(d)=""
  48. 520 get#2,a$,a$:rem cancel 'dd'
  49. 525 get#2,a$:ifa$<>chr$(34)thena$(d)=a$(d)+a$:goto525
  50. 526 get#2,a$:ifa$<>""then526
  51. 527 get#2,a$,a$,a$,a$
  52. 530 d=d+1:goto510
  53. 700 print"[147][142][154]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  54. 701 print"[154] [176][179][158]doodle slideshow[146][154][171][192][192][179][129]w.schmidt/r.w[154][171][192][174]"
  55. 710 print"[154] [194][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [194]"
  56. 720 print" [221] a[146] "a$(1)tab(21)"i[146] "a$(9)tab(38)"[154][221]"
  57. 730 print" [221] b[146] "a$(2)tab(21)"j[146] "a$(10)tab(38)"[154][221]"
  58. 740 print" [221] c[146] "a$(3)tab(21)"k[146] "a$(11)tab(38)"[154][221]"
  59. 750 print" [221] d[146] "a$(4)tab(21)"l[146] "a$(12)tab(38)"[154][221]"
  60. 760 print" [221] e[146] "a$(5)tab(21)"m[146] "a$(13)tab(38)"[154][221]"
  61. 770 print" [221] f[146] "a$(6)tab(21)"n[146] "a$(14)tab(38)"[154][221]"
  62. 780 print" [221] g[146] "a$(7)tab(21)"o[146] "a$(15)tab(38)"[154][221]"
  63. 790 print" [221] h[146] "a$(8)tab(21)"p[146] "a$(16)tab(38)"[154][221]"
  64. 795 print" [221]"tab(12)"q[146] "a$(17)tab(38)"[154][221]"
  65. 797 print" [173][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][189]"
  66. 798 print"   [192][192][192][192][192][192][179]shift-d for new disk[154][171][192][192][192][192][192][192]
  67. 799 [143]    print"  for continuous     from menu,select
  68. 800 rem    print"  view of screens [158]or[146][129] letter[154] to load &
  69. 801 [143]    print"  loading, use forf8waitcont    view each doodle
  70. 802 rem    print"  [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]    [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][154]
  71. 803 [153]" ortantantantantantantan>tantantantantantantantantantantantantantantantantantantantan>tantantantantantantan^
  72. 820 print" [221] press [129]f1[146]  to toggle to & from menu[154] [221]"
  73. 821 print" [221]  ... [129]a[146]to[129]q[146] to select load & view   [154] [221]"
  74. 822 print" [221]  ...  [129]f8[146]  to load next screen     [154] [221]"
  75. 823 print" [221]  ...  [129] ^  to start auto seq. load [154] [221]"
  76. 824 print" [221]  ...  [129] *  & hold[146] to stop auto load[154] [221]"
  77. 825 print" [221]  ...  [129]f3[146]  to change border color(-)[154][221]"
  78. 826 print" [221]  ...  [129]f5[146]  to change border color(+)[154][221]"
  79. 827 print" [221]  ...  [129]f6[146]  for 1525 m/l bit-map dump[154][221]"
  80. 828 print" [221]  ... [129]1[146]or[129]2[146]    (single/double-size)  [154][221]"
  81. 830 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  82. 835 return
  83. 998 :------------------------
  84. 999 rem choice for poking                       1525 m/l bit-map dump
  85. 1000 ys=0:print"[147] do you want the hires dump($cc00-1525)":print,,"[157][157][157](y/n)?"
  86. 1010 getys$:ifys$=""then1010
  87. 1020 ifys$="n"thenys=2:return
  88. 1030 ifys$="y"thenys=1:print"[147] poking m/l data(6 sec.)...[158]":gosub 50000:return
  89. 1040 goto1010
  90. 1050 :-----------------------
  91. 10000 :    rem"[184][184][184][184][184][184]credits[184][184][184][184][184][184][184][184]"
  92. 10010 :    rem menu select demo (rgw)
  93. 10020 :    rem richard g. wilmoth             :        newport news,va
  94. 10030 :    rem substantial functional &       :        cosmetic enhancements by
  95. 10039 :    rem wayne r. schmidt,nyc
  96. 10040 :    rem directory read routine
  97. 10045 :    rem     written by...
  98. 10050 :    rem *** anthony manso ***
  99. 20000 :-----------------------
  100. 50000 for adres=52224to52847:read datta:poke adres,datta:print".";:next adres
  101. 50010 print"*":return
  102. 52224 data 173, 0, 221, 41, 3, 73
  103. 52230 data 3, 160, 6, 10, 136, 208
  104. 52236 data 252, 141, 132, 3, 173, 24
  105. 52242 data 208, 41, 8, 240, 9, 24
  106. 52248 data 169, 32, 109, 132, 3, 141
  107. 52254 data 132, 3, 169, 0, 32, 189
  108. 52260 data 255, 169, 4, 170, 160, 255
  109. 52266 data 32, 186, 255, 32, 192, 255
  110. 52272 data 162, 4, 32, 201, 255, 176
  111. 52278 data 3, 76, 61, 204, 76, 32
  112. 52284 data 205, 169, 8, 32, 210, 255
  113. 52290 data 169, 13, 32, 210, 255, 162
  114. 52296 data 0, 169, 1, 141, 198, 205
  115. 52302 data 169, 0, 141, 199, 205, 169
  116. 52308 data 0, 141, 200, 205, 169, 199
  117. 52314 data 141, 201, 205, 32, 225, 255
  118. 52320 data 208, 3, 76, 32, 205, 138
  119. 52326 data 72, 152, 72, 32, 41, 205
  120. 52332 data 104, 168, 104, 170, 173, 205
  121. 52338 data 205, 45, 203, 205, 240, 12
  122. 52344 data 173, 202, 205, 13, 198, 205
  123. 52350 data 141, 202, 205, 76, 143, 204
  124. 52356 data 173, 198, 205, 73, 255, 45
  125. 52362 data 202, 205, 141, 202, 205, 14
  126. 52368 data 198, 205, 173, 198, 205, 201
  127. 52374 data 128, 240, 20, 24, 173, 199
  128. 52380 data 205, 105, 1, 141, 199, 205
  129. 52386 data 173, 200, 205, 105, 0, 141
  130. 52392 data 200, 205, 76, 93, 204, 173
  131. 52398 data 202, 205, 9, 128, 224, 45
  132. 52404 data 144, 10, 173, 202, 205, 41
  133. 52410 data 31, 9, 128, 141, 202, 205
  134. 52416 data 142, 207, 205, 32, 32, 206
  135. 52422 data 234, 234, 234, 234, 234, 234
  136. 52428 data 234, 234, 234, 234, 234, 234
  137. 52434 data 174, 207, 205, 169, 1, 141
  138. 52440 data 198, 205, 169, 0, 141, 202
  139. 52446 data 205, 56, 173, 199, 205, 233
  140. 52452 data 6, 141, 199, 205, 173, 200
  141. 52458 data 205, 233, 0, 141, 200, 205
  142. 52464 data 206, 201, 205, 173, 201, 205
  143. 52470 data 201, 255, 240, 3, 76, 93
  144. 52476 data 204, 224, 46, 176, 31, 24
  145. 52482 data 173, 199, 205, 105, 7, 141
  146. 52488 data 199, 205, 173, 200, 205, 105
  147. 52494 data 0, 141, 200, 205, 232, 169
  148. 52500 data 199, 141, 201, 205, 169, 13
  149. 52506 data 32, 210, 255, 76, 224, 205
  150. 52512 data 169, 13, 32, 210, 255, 32
  151. 52518 data 231, 255, 96, 173, 201, 205
  152. 52524 data 41, 7, 141, 204, 205, 173
  153. 52530 data 201, 205, 74, 74, 74, 168
  154. 52536 data 185, 146, 205, 133, 251, 185
  155. 52542 data 172, 205, 133, 252, 24, 165
  156. 52548 data 251, 109, 204, 205, 133, 251
  157. 52554 data 165, 252, 105, 0, 133, 252
  158. 52560 data 24, 173, 132, 3, 101, 252
  159. 52566 data 133, 252, 173, 199, 205, 41
  160. 52572 data 7, 73, 7, 168, 200, 169
  161. 52578 data 0, 56, 42, 136, 208, 252
  162. 52584 data 141, 203, 205, 24, 173, 200
  163. 52590 data 205, 101, 252, 133, 252, 173
  164. 52596 data 199, 205, 41, 248, 168, 138
  165. 52602 data 72, 120, 162, 52, 134, 1
  166. 52608 data 177, 251, 162, 55, 134, 1
  167. 52614 data 88, 168, 104, 170, 152, 45
  168. 52620 data 203, 205, 141, 205, 205, 96
  169. 52626 data 0, 64, 128, 192, 0, 64
  170. 52632 data 128, 192, 0, 64, 128, 192
  171. 52638 data 0, 64, 128, 192, 0, 64
  172. 52644 data 128, 192, 0, 64, 128, 192
  173. 52650 data 0, 64, 0, 1, 2, 3
  174. 52656 data 5, 6, 7, 8, 10, 11
  175. 52662 data 12, 13, 15, 16, 17, 18
  176. 52668 data 20, 21, 22, 23, 25, 26
  177. 52674 data 27, 28, 30, 31, 0, 0
  178. 52680 data 0, 0, 0, 0, 0, 0
  179. 52686 data 0, 0, 0, 0, 0, 0
  180. 52692 data 0, 0, 0, 0, 0, 0
  181. 52698 data 0, 0, 0, 0, 0, 0
  182. 52704 data 234, 234, 234, 165, 2, 201
  183. 52710 data 2, 208, 38, 173, 216, 205
  184. 52716 data 201, 1, 240, 26, 169, 1
  185. 52722 data 141, 216, 205, 56, 173, 199
  186. 52728 data 205, 233, 7, 141, 199, 205
  187. 52734 data 173, 200, 205, 233, 0, 141
  188. 52740 data 200, 205, 202, 76, 93, 204
  189. 52746 data 169, 0, 141, 216, 205, 224
  190. 52752 data 46, 176, 3, 76, 93, 204
  191. 52758 data 76, 32, 205, 0, 0, 0
  192. 52764 data 0, 0, 0, 0, 141, 217
  193. 52770 data 205, 166, 2, 142, 206, 205
  194. 52776 data 224, 1, 240, 49, 41, 127
  195. 52782 data 162, 8, 10, 8, 46, 218
  196. 52788 data 205, 46, 219, 205, 40, 46
  197. 52794 data 218, 205, 46, 219, 205, 202
  198. 52800 data 208, 238, 14, 218, 205, 46
  199. 52806 data 219, 205, 78, 218, 205, 162
  200. 52812 data 1, 236, 216, 205, 208, 6
  201. 52818 data 173, 219, 205, 76, 91, 206
  202. 52824 data 173, 218, 205, 9, 128, 168
  203. 52830 data 32, 210, 255, 152, 206, 206
  204. 52836 data 205, 208, 246, 96, 0, 0
  205. 52842 data 0, 0, 0, 0, 0, 0
  206.